Unit
LMDCal

Declaration

TLMDDrawCellEvent = procedure (Sender : TObject; Canvas : TCanvas; aRect : TRect; Day : Integer) of object;